﻿
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            ViewState("Visitas") = 0
            ViewState("Prog") = 0
            ViewState("Psic") = 0
            ViewState("Hist") = 0
            Application("VarApplication") = Application("VarApplication") + 1
            lblApli.Text = Application("VarApplication")

        End If
        lblUser.Font.Italic = True
        lblUser.Font.Bold = True
        lblUser.ForeColor = Drawing.Color.Blue
        'lblUser.Text = Request.QueryString("User")
        lblUser.Text = Session("VarSessionUser")

    End Sub

    Protected Sub btnAutos_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAutos.Click
        Response.Redirect("Autos.aspx")
    End Sub

    Protected Sub btnComisarias_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnComisarias.Click
        Response.Redirect("Comisarias.aspx")
    End Sub
End Class
